home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / c-script.exe / events.cus < prev    next >
Encoding:
Text File  |  1997-04-04  |  26.4 KB  |  283 lines
  1. ;This script takes up a lot of my time and I am 
  2. ;almost finding it not worthwhile to keep working on it. 
  3. ;If you would like to send me some money for further research 
  4. ;and development, please send a check or money order to:
  5. ;
  6. ;Seth Davis
  7. ;Rt 2 Box 100-B
  8. ;Crossville, TN 38555
  9. ;
  10. ;Make the check/money order payable to Seth Davis.
  11. ;
  12. ;Thank you VERY much in advance!
  13. ;
  14. #MAX3 off
  15. on 1:TEXT:*:/return
  16. on 1:ACTION:*:/return
  17. on 1:* { halt }
  18. #MAX3 end
  19. #autoidleaway off
  20. me:1:* { away }
  21. #AUTOIDLEAWAY end
  22. on 1:TEXT:*[C-C]*:*:/decode $1-
  23. on me:1:NICK:/.auser 7 $newnick | /.guser 7 $newnick 3 | /.ruser $nick | /set %me $newnick | /set %awme * $+ $newnick $+ *
  24. #ialaupd off
  25. on me:1:JOIN:#:/set %ialupdcn $chan | /echo 13 %ialupdcn Updating IAL for %ialupdcn $+ ... | enable #ialaupd2 | who %ialupdcn
  26. #ialaupd end
  27. ;Email "Referenced" from ircN by icN.
  28. #remail off
  29. on me:1:CHAT:* { 
  30.   if (($3 isnum) && ($5 == not)) { echo 4 %csmail Message $3 does not exist! | if (%emnxt1 == On) { %emnxt = %emfnd | set %emnxt1 Off } | if (%emdec1 == On) { %emdec = %emfnd | set %emdec1 Off } }
  31.   if (($3 isnum) && ($6 == deleted.)) { echo 4 %csmail Message $3 has %BNDEL }
  32.   if ($1 == $null) { echo 4 %csmail %embrk | halt }
  33.   if ($1 == .) { .disable #remail | .enable #email | echo 4 %csmail %EOMTRT1  $+ %csemrd $+ . %EOMTRT2 %emfrom %RPNEM | clear Chat with %me | set %emrnum 1 | set %emrnum2 1 | halt }
  34.   if (_NextPart_ isin $1- || X-Attachments isin $1-) { echo 4 %csmail A file attachment was detected. Halting... | disable #remail | halt } 
  35.   if ($1 == From:) { if (< isin $2 || @ isin $2) set %reply $remove($remove($2,<),>) | else set %reply $remove($token(2,60,$1-),>) | set %emfrom $remove($2-,") | echo 13 %csmail From: %emfrom $+  | halt }
  36.   if ($1 == To:) { echo 13 %csmail To: $2- $+  | set %emrnum 2 | halt } | if ($1 == Subject:) { %subj = Re: $remove($2-,Re:) | echo 13 %csmail Subj: $2- $+  | set %emrnum2 3 | halt } | if ($1 == Date:) { echo 13 %csmail Date: $2-6 $+  | halt } | if ($1 == cc:) { echo 13 %csmail CC: $2- $+  | halt }
  37.   if (($1 == Status:) || ($1 == Sender:) || ($1 == Precedence:) || ($1 == Reply-To:) || ($1 == Priority:) || ($1 == In-Reply-To:) || ($1 == Message-ID:) || ($1 == MIME-Version:) || ($1 == Content-Type:) || ($1 == References:) || ($1 == Content-Transfer-Encoding:) || ($1 == X-MSMail-Priority:) || ($1 == X-Priority:)) { set %emrnum 2 | halt }
  38.   elseif ($1 == -ERR) { echo 4 %csmail ERROR: $2- $+  }
  39.   else { if ((%emrnum == 2) && (%emrnum2 == 3)) { echo 6 %csmail $1- } | else { halt } }
  40. }
  41. on 1:CHATCLOSE: { set %dccoffline Yes | if ($nick == %me) { window -c %csmail } | set %comsndr Off | disable #lemail #sendmail #email #remail | .timer73 off | .creq ask }
  42. #remail end
  43. #lemail off
  44. on me:1:CHAT:* { if ($1 == .) { echo 12 %csmail END of list! Type /read <email#> to read mail, or /del <email#> to delete mail. | clear Chat with %me | .disable #lemail } | elseif ($1 isnum) { echo 4 %csmail $1 - $2- } }
  45. #lemail end
  46. #email off
  47. on me:1:CHATOPEN: { set %dccoffline No | set %dccemme = $+ %me | .creq ask | .timer821 off | echo 2 %csmail %FEMHT | echo 10 %csmail %EMLIPW | set %emrnum 1 | msg %dccemme USER %username | msg = $+ %me PASS $idecode(%userpass) | set %emnxt 1 | clear Chat with %me | .timer73 0 15 clear Chat with %me }
  48. on me:1:CHAT:* {
  49.   if (($3 isnum) && ($5 == not)) { echo 4 %csmail Message $3 does not exist! } | if (($3 isnum) && ($6 == deleted.)) { echo 4 %csmail Message $3 has %BNDEL }
  50.   if (($5 == already) && ($7 == deleted.)) { echo 4 %csmail Message $3 has already %BNDEL } | if (($3 == has) && ($4 isnum)) { clear Chat with %me | echo 12 %csmail You have  $+ $4 $+  Message(s)! %TLMTLM }
  51.   if (($4 == 0) && (0 isin $6)) { clear Chat with %me | echo 4 %csmail %NNMFCC | .timer 1 5 quitmail } | if ($1 == .) { echo 4 %csmail END | clear Chat with %me | .disable #email | halt }
  52.   elseif ($1 == -ERR) { echo 4 %csmail ERROR: $2- $+  }
  53. }
  54. on 1:CHATCLOSE: { set %dccoffline Yes | if ($nick == %me) { window -c %csmail } | set %comsndr Off | disable #lemail #sendmail #email #remail | .timer73 off }
  55. #email end
  56. #sendmail off
  57. on 1:CHATOPEN: { set %dccoffline No | set %dccemme = $+ %me | .creq ask | .timer821 off | echo 10 %csmail %EMLIPW | msg = $+ %me HELO $ip | .timer73 0 15 clear Chat with %me }
  58. on me:1:CHAT:* { 
  59.   if ((550 == $1) && (unknown isin $1-)) { echo 4 %csmail " $+ %rcpt $+ " Unknown User } | if (220 == $1 && SMTP isin $1-) msg %dccemme mail from: %email | if (250 == $1 && Sender isin $1-) msg %dccemme rcpt to: %rcpt | if (250 == $1 && Recipient isin $1-) msg %dccemme data
  60.   if (354 == $1) { 
  61.     msg %dccemme X-Mailer: %emx-mailer | msg %dccemme To: %rcpt | msg %dccemme From: " $+ %myn $+ " < $+ %email $+ > | msg %dccemme Subject: %subj | if (%comsndr == On) { msg %dccemme %emcoms | .timer 1 1 msg %dccemme á | .timer 1 2 msg %dccemme %emsig | .timer 1 3 msg %dccemme . | set %comsndr Off | halt }
  62.     if (%semailnow == Yes) { set %semailnow No | echo 4 %csmail Sending message to server... | .timer 1 15 semail2 | .play %dccemme $mircdiremail.txt 1 }
  63.   }
  64.   if ((250 == $1) && ($4 == accepted)) { echo 6 %csmail Sucessfully sent " $+ %subj $+ " to %rcpt $+  | echo 4 %csmail Closing Connection... | .timer 1 5 quitmail }
  65.   elseif ($1 == -ERR) { echo 4 %csmail ERROR: $2- $+  }
  66. }
  67. on 1:CHATCLOSE: { set %dccoffline Yes | if ($nick == %me) { window -c %csmail } | set %comsndr Off | disable #lemail #sendmail #email | .timer73 off }
  68. #sendmail end
  69. #www off
  70. on 1:DNS: {  if ($raddress == $null) { .timer821 off | echo 4 -a Unable to resolve $iaddress $naddress $+  } | raw -q privmsg $me :DCC CHAT CHAT $longip($iaddress) 80 | halt }
  71. on 1:CHATOPEN: { set %dccemme = $+ %me | .creq ask | .timer821 off | msg = $+ %me GET %wwwdir }
  72. on me:1:CHAT:* { if ($1 == $null) { echo 0 %cswww á | halt } | echo 10 %cswww $1- | halt }
  73. on 1:CHATCLOSE: { set %dccoffline Yes | if ($nick == %me) { window -c %csmail } | set %comsndr Off | disable #lemail #sendmail #email | .timer73 off | echo 4 %cswww End of " $+ %wwwdir $+ " at " $+ %wwwbd $+ " | disable #www }
  74. #WWW end
  75. ;Vercheck thanks to [SB]Tikiman's add-on
  76. #vercheck off
  77. on 1:CHATOPEN:/msg = $+ $me GET %verpath
  78. on 1:CHAT:VER*:/set %curver2 $2-
  79. on 1:CHAT:NEWS*:/set %curnews $2-
  80. on 1:CHATCLOSE:/vercheck | .creq ask | .disable #vercheck
  81. #vercheck end
  82. #nsplit on
  83. on 1:QUIT: { if (((.net ISIN $1) || (.com ISIN $1) || (.org ISIN $1) || (.irc ISIN $1)) && ((.net ISIN $2) || (.com ISIN $2) || (.org ISIN $2) || (.irc ISIN $2)) && ($3- == $null)) { echo 4 -a *** Possible Split: $1 <--/ /--> $2 } }
  84. #nsplit end
  85. #errorecho on
  86. on 1:ERROR:* { echo 4 -a *** ERROR: $1- }
  87. #errorecho end
  88. #ctcpreply on
  89. on 1:CTCPREPLY:PING* { if ($2 == $null) { notice $nick |å|C-Script|å| PING reply on  $+ $nick $+  = (0 Seconds) } | else { %pt = $ctime - $2 } | if (%pt < 0) { set %pt 0 } | notice $nick |å|C-Script|å| PING reply on  $+ $nick $+  = ( $+ $duration(%pt) $+ ) | echo 4 -a |å|C-Script|å| PING reply on  $+ $nick $+  = ( $+ $duration(%pt) $+ ) | halt }
  90. #CTCPreply end
  91. #dnsecho on
  92. on 1:DNS: { 
  93.   if (%pporspset == On) { wecho %pposp %PSSS1 | unset %pporspset | goto POPSMTP }
  94.   if ($raddress == $null) { echo 4 -a Unable to resolve $iaddress $naddress $+  } 
  95.   else { echo 12 -a IP DNS Address: $iaddress | echo 12 -a Named DNS Address: $naddress | echo 12 -a Resolved DNS Address: $raddress | echo 12 -a LongIP: $longip($raddress) }
  96.   :POPSMTP
  97.   if (%pposp == POP) { set %mailip $iaddress } | if (%pposp == SMTP) { set %smailip $iaddress }
  98. }
  99. #dnsecho end
  100. #fserv on
  101. on 1:TEXT:!FSERV:#:{ if ($away != $true) { /echo 4 -a Hey $nick is in your FILE server... | /notice $nick I notice you!!! | /fserve $nick 5 $mircdirFserv $mircdirFserv\Welcome.txt } | else { /notice $nick %CSLOGO - Protection $me is away... Please try again later! } }
  102. #FSERV end
  103. #takeover off
  104. on @1:JOIN:%takechan: { kick $chan $nick %TOKR | ban $chan $nick 4 }
  105. on @1:TEXT:*:%takechan: { kick $chan $nick %TOKR | ban $chan $nick 4 }
  106. on @1:OP:%takechan: { kick $chan $opnick %TOKR | ban $chan $opnick 4 }
  107. on @1:SERVEROP:%takechan: { kick $chan $opnick %TOKR | ban $chan $opnick 4 }
  108. on @1:MODE:%takechan: { if (- isin $1-) { mode $chan + $+ $remove($1-,-) } }
  109. on @1:SERVERMODE:%takechan: { if (- isin $1-) { mode $chan + $+ $remove($1-,-) } }
  110. #takeover end
  111. #desync off
  112. on @1:JOIN:%desync: { kick %desync $nick Go away! | ban -u10 $nick 3 }
  113. on @1:SERVEROP:%desync: { kick %desync $opnick Ack! Resync. | ban -u60 $nick 4 }
  114. on @1:MODE:%desync: { if (- isin $1-) { mode $chan + $+ $remove($1-,-) } }
  115. on @1:SERVERMODE:%desync: { if (- isin $1-) { mode $chan + $+ $remove($1-,-) } }
  116. #desync end
  117. #group7 off
  118. on @7:JOIN:#:/mode $chan +o $nick
  119. on @1:BAN:#: { if (($banmask iswm $address($me,5) || ($level($bnick) == 7) || ($level($banmask) == 7)) { /mode $chan -ob+ob $nick $banmask $bnick $address($nick,3) | /kick $chan $nick You banned my friend! } }
  120. on @+7:DEOP:#:/mode $chan -o+o $nick $opnick | /say Hey! $nick is my friend!
  121. on @+7:KICK:#:/ban $chan $nick 3 | /kick $chan $nick Don't Kick My Friend! | /invite $knick $chan
  122. on 7:NICK:/.auser 7 $newnick | /.guser 7 $newnick 3 | /.ruser $nick
  123. #group7 end
  124. #record on
  125. on 1:KICK:#:/write -il1 kickrcrd.txt $adate, $atime: $nick Kicked $knick From $chan ---> $1-
  126. on 1:TEXT:!KICKED:#: { msg $chan %ROTWHBK | .timer 1 2 .play $chan $mircdirkickrcrd.txt 50 }
  127. on 1:FILESENT:*:/write files.txt /echo 4 -a $adate, $atime: %SS91 sent $nick $filename
  128. on 1:FILERCVD:*:/write files.txt /echo 4 -a $adate, $atime: %SS91 received $filename from $nick
  129. on 1:SENDFAIL:*:/write files.txt /echo 4 -a $adate, $atime: %SS91 failed to sent $nick $filename
  130. on 1:GETFAIL:*:/write files.txt /echo 4 -a $adate, $atime: %SS91 failed to received $filename from $nick
  131. on 1:BAN:#: { 
  132.   if (($banmask iswm $address($me,5)) && ($me isop $chan) && (%takeover != On) && (%banprot == On)) { 
  133.     splay $mircdirSounds\defence.wav 
  134.     mode $chan -o-b+b $nick $banmask $address($nick,3) 
  135.     kick $chan $nick [C-Script PrOtEcTiOn!!] 
  136.   } 
  137.   else { echo 4 -a $nick BANNED $banmask  in $chan } 
  138.   write -il1 banrcrd.txt $adate, $atime: $nick Banned $banmask From $chan
  139. }
  140. on 1:TEXT:!BANNED:#: { msg $chan %ROMTHBB | .timer 1 2 play $chan $mircdirbanrcrd.txt 50 }
  141. #RECORD end
  142. #ckick off
  143. on @1:TEXT:*asshole*:#:/kick $chan $nick %CKICKMSG1
  144. on @1:TEXT:*suck**my**dick*:#:/kick $chan $nick %CKICKMSG1
  145. on @1:TEXT:*shit*:#:/kick $chan $nick %CKICKMSG1
  146. on @1:TEXT:*bitch*:#:/kick $chan $nick %CKICKMSG1
  147. on @1:TEXT:*bastard*:#:/kick $chan $nick %CKICKMSG1
  148. on @1:TEXT:*fuck*:#:/kick $chan $nick %CKICKMSG1
  149. on @1:TEXT:*fuq*:#:/kick $chan $nick %CKICKMSG1
  150. on @1:TEXT:*goddamn*:#:/kick $chan $nick %CKICKMSG1
  151. #CKICK end
  152. #cusskick off
  153. on @1:TEXT:*asshole*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  154. on @1:TEXT:*suck**my**dick*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  155. on @1:TEXT:*shit*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  156. on @1:TEXT:*bitch*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  157. on @1:TEXT:*bastard*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  158. on @1:TEXT:*fuck*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  159. on @1:TEXT:*fuq*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  160. on @1:TEXT:*goddamn*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  161. on @1:TEXT:*sux*:#:/describe $chan COME ON! $nick %CUSS1 | /describe $chan  CONSIDER YOURSELF WARNED $nick !!!!!! %CUSS2 | /.timer 1 4 /kick $chan $nick Go read Proverbs 4:24 | /.auser =12 $nick | /.guser =12 $nick 3
  162. #CUSSKICK end
  163. #group12 off
  164. on @+12:TEXT:*asshole*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  165. on @+12:TEXT:*shit*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  166. on @+12:TEXT:*fuck*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  167. on @+12:TEXT:*fuq*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  168. on @+12:TEXT:*suck**my**dick*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  169. on @+12:TEXT:*bitch*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  170. on @+12:TEXT:*bastard*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  171. on @+12:TEXT:*goddamn*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  172. on @+12:TEXT:*sux*:#:/.auser =14 $nick | /.guser =14 $nick 3 | /describe $chan None of that language please $nick $+ ! %CUSS3 | /.timer1 1 4 /ban -u3 $chan $nick 3 | /.timer2 1 5 /kick $chan $nick Some People Just Don't Listen! [C-Script PrOfAniTy Alert]
  173. #group12 end
  174. #group14 off
  175. on @+14:TEXT:*asshole*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  176. on @+14:TEXT:*shit*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  177. on @+14:TEXT:*fuck*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  178. on @+14:TEXT:*fuq*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  179. on @+14:TEXT:*suck**my**dick*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  180. on @+14:TEXT:*bitch*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  181. on @+14:TEXT:*bastard*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  182. on @+14:TEXT:*goddamn*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  183. on @+14:TEXT:*sux*:#:/.auser =999 $nick | /.guser =999 $nick 3 | /ban $chan $nick 3 | /kick $chan $nick NOW YOU'RE SHOOTLISTED! [C-Script PrOfAniTy ShOoTLiSt] | /notice $nick %CUSS4
  184. #group14 end
  185. #snotice off
  186. on 1:SNOTICE:*split*:/echo 4 -s Possible Split: $1- | /halt
  187. on 1:SNOTICE:*break*:/echo 4 -s Possible Split: $1- | /halt
  188. on 1:SNOTICE:*is now oper*:/echo 4 -s OPER Detected: $1- | /halt
  189. on 1:SNOTICE:*Client connecting*:/echo 4 -s *** Client connecting: $6-7 | /halt
  190. on 1:SNOTICE:*Client exiting*:/echo 4 -s *** Client exiting: $6- | /halt
  191. on 1:SNOTICE:*:/echo 4 -s Server Notice: $1- | /halt
  192. #SNOTICE end
  193. #wallops on
  194. on 1:WALLOPS:*:/echo 4 -a %WALOPS1  $+ $nick $+ : $1- | /halt
  195. #WALLOPS end
  196. #greet off
  197. on me:1:JOIN:#:/msg $chan Hello Everyone!
  198. on me:1:PART:#:/msg $chan Bye Everyone! See you all Later!
  199. #GREET end
  200. #send on
  201. ; ** PLEASE DO NOT ALTER THE NEXT LINE! **
  202. on 1:TEXT:&C-Script:*:/dcc send $nick $mircdirC-Script.exe | /if dal.net isin $server { .msg memoserv send SethD Another customer by $me The customer was:  $+ $nick $+  } | /.auser =77 $nick | /.timer 1 14 /.ruser $nick | /echo 7 -a Another customer  $+ $nick $+  | /ignore -au5 $nick 3
  203. #SEND end
  204. #copy off
  205. on me:1:JOIN:#:/dde mircbot command "" /partall | /.timer 1 3 /dde mircbot command "" /join $chan
  206. #COPY end
  207. #groupaway off
  208. on 1:TEXT:+AWAYHELP:*: { msg $nick %AWMSG1 | msg $nick Or: /msg $me +PAGE Just wanted to talk. | msg $nick %AWMSG2 | .timer 1 10 closemsg $nick }
  209. on 1:TEXT:+PAGEHELP:*: { msg $nick %AWMSG1 | msg $nick Or: /msg $me +PAGE Just wanted to talk. | /.timer 1 10 /closemsg $nick }
  210. on 1:TEXT:+PAGE:*:/notice $nick %MSGS6
  211. on 1:TEXT:+PAGE*:*: {
  212.   if ($nick !isin %msgnicks) { inc %msgnum | set %msgnicks %msgnicks $+ $nick $+ $chr(160) }
  213.   if ($chr(124) isin $nick) { write -c $mircdirPage\ $+ $remove($nick,$chr(124)) $+ .txt echo 12 -a $nick at ( $+ $address $+ ) left this msg: ( $2- ) on $day $adate at $atime }
  214.   else { write -c $mircdirPage\ $+ $nick $+ .txt echo 12 -a $nick at ( $+ $address $+ ) left this msg: ( $2- ) on $day $adate at $atime }
  215.   notice $nick %MSGS2 $me a message. | notice $nick %MSGS2a $me again, your current message will be overwritten with your new one! | .timer 1 5 closemsg $nick | wavplay $mircdirSounds\Ding.wav | ignore -pcu15 $nick 3 | notice $nick 15 Second Ignore! Please Wait about 15 seconds before /msg'ing me again... |å| C-Script Protection |å|
  216. }
  217. #groupAWAY end
  218. #beep off
  219. on 1:TEXT:+BEEPHELP:*: { if ($away == $true) { msg $nick %AWMSG3 } }
  220. on 1:TEXT:+BEEP:*: { if ($away == $true) { notice $nick Thank you for BEEPing $me. Please wait... | echo 4 -s  $+ $nick BEEPed you at $atime $+ . To turn the sound off type /timer525 off | echo 4 -a  $+ $nick BEEPed you at $atime $+ . To turn the sound off type /timer525 off | .timer525 -o 50 5 wavplay beeper.wav | ignore -au15 $nick 3 } }
  221. #BEEP end
  222. #aamsgs off
  223. on 1:TEXT:*:?: { 
  224.   if (%msglog == On) { 
  225.     if (%msglfnum > 5) { ignore -pcu30 *!*@* | notice $nick 30 Second Ignore! Please Wait about 30 seconds before /msg'ing me again... C-Script Protection | set %msglfnum 0 | halt }
  226.     else { inc %msglfnum | .timer 1 30 set %msglfnum 0 | write -il2 $scriptdirmsgs.txt /echo 12 -a $chr(91) $+ At $atime $day $adate $+ $chr(93) < $+ $nick $+ $chr(124) $+ $address $+ > $1- | inc %mlmsgnum | notice $nick I'm away right now, but your message was logged. }
  227.   }
  228.   if (($away == $true) && (%PGER == On) && (%BEEP != On)) { notice $nick %MSGS5 /msg $me +PAGEHELP. Thanks. } | if (($away == $true) && (%PGER != On) && (%BEEP == On)) { notice $nick %MSGS8 /msg $me +BEEPHELP. Thanks. } | elseif (($away == $true) && (%PGER == On) && (%BEEP == On)) { notice $nick %MSGS7 /msg $me +AWAYHELP. Thanks. }
  229.   .timer 1 25 closemsg $nick
  230. }
  231. on 1:TEXT:%awme:#: { if (($away == $true) && (%PGER == On) && (%BEEP != On)) { notice $nick %MSGS7 /msg $me +PAGEHELP. Thanks. } | if (($away == $true) && (%PGER != On) && (%BEEP == On)) { notice $nick %MSGS8 /msg $me +BEEPHELP. Thanks. } | elseif (($away == $true) && (%PGER == On) && (%BEEP == On)) { notice $nick %MSGS7 /msg $me +AWAYHELP. Thanks. } }
  232. #aamsgs end
  233. #msglog off
  234. on +1:TEXT:*:? { 
  235.   if (%msglog == On) { 
  236.     if (%msglfnum > 5) { ignore -pcu30 *!*@* | notice $nick 30 Second Ignore! Please Wait about 30 seconds before /msg'ing me again... C-Script Protection | set %msglfnum 0 | halt }
  237.     else { inc %msglfnum | .timer 1 30 set %msglfnum 0 | write -il2 $scriptdirmsgs.txt /echo 12 -a $chr(91) $+ At $atime $day $adate $+ $chr(93) < $+ $nick $+ $chr(124) $+ $address $+ > $1- | inc %mlmsgnum | notice $nick I'm away right now, but your message was logged. }
  238.   }
  239.   .timer 1 25 closemsg $nick 
  240. }
  241. on +7:TEXT:*:? { 
  242.   if (%msglog == On) { 
  243.     .timer 1 30 set %msglfnum 0 | write -il2 $scriptdirmsgs.txt /echo 12 -a $chr(91) $+ At $atime $day $adate $+ $chr(93) < $+ $nick $+ $chr(124) $+ $address $+ > $1- | inc %mlmsgnum | notice $nick I'm away right now, but your message was logged.
  244.   }
  245.   .timer 1 25 closemsg $nick 
  246. }
  247. #msglog end
  248. #chanclone off
  249. on @1:JOIN:#: { /ccheck $chan | if ((%SEEN == On) && ($chr(124) !isin $nick)) { /write -c $mircdirseen\ $+ $nick $+ .txt /.timer20 off | /write $mircdirseen\ $+ $nick $+ .txt  /msg  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan } }
  250. #chanclone end
  251. #awhois off
  252. on @1:JOIN:#: { /whois $nick | if ((%SEEN == On) && ($chr(124) !isin $nick)) { /write -c $mircdirseen\ $+ $nick $+ .txt /.timer20 off | /write $mircdirseen\ $+ $nick $+ .txt  /msg  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan } }
  253. #awhois end
  254. #seen on
  255. on 1:JOIN:#: if ($chr(124) !isin $nick) { /write -c $mircdirseen\ $+ $nick $+ .txt /.timer20 off | /write $mircdirseen\ $+ $nick $+ .txt  /msg  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan }
  256. on 1:PART:#: if ($chr(124) !isin $nick) { /write -c $mircdirseen\ $+ $nick $+ .txt /.timer20 off | /write $mircdirseen\ $+ $nick $+ .txt  /msg  %dol I've seen $nick ! ( $address ) I last saw $nick , $day $adate $atime on $chan }
  257. on 1:TEXT:!seen*:#: { if ($chr(63) isin $2) { /set %seennick $remove($2,?) } | else { /set %seennick $2 } | /.timer20 1 3 /msg $chan Sorry I haven't seen %seennick | .play -c $chan $mircdirseen\ $+ %seennick $+ .txt 0 }
  258. #SEEN end
  259. ;CapsKick thanx to Despayre :)
  260. ;Text Repeat Kicker thanks to laZoR's addon
  261. #textpro off
  262. on @+1:TEXT:**:#: { if ($nick !isop $chan) { set %ccodecnt 0 | set %ccodecnt1 $count($1-,) | set %ccodecnt2 $count($1-,) | set %ccodecnt3 $count($1-,) | set %ccodecnt4 $count($1-,) | .inc %ccodecnt %ccodecnt1 | .inc %ccodecnt %ccodecnt2 | .inc %ccodecnt %ccodecnt3 | .inc %ccodecnt %ccodecnt4 | if (%ccodecnt > 4) { ban -u8 $chan $nick 3 | notice $nick Excess Control Codes Detected (Total: %ccodecnt $+ ) (this ban will be lifted in a moment) %CSSLOGO } } }
  263. on @+1:TEXT:**:#: { if ($nick !isop $chan) { set %ccodecnt 0 | set %ccodecnt1 $count($1-,) | set %ccodecnt2 $count($1-,) | set %ccodecnt3 $count($1-,) | set %ccodecnt4 $count($1-,) | .inc %ccodecnt %ccodecnt1 | .inc %ccodecnt %ccodecnt2 | .inc %ccodecnt %ccodecnt3 | .inc %ccodecnt %ccodecnt4 | if (%ccodecnt > 4) { ban -u8 $chan $nick 3 | notice $nick Excess Control Codes Detected (Total: %ccodecnt $+ ) (this ban will be lifted in a moment) %CSSLOGO } } }
  264. on @+1:TEXT:**:#: { if ($nick !isop $chan) { set %ccodecnt 0 | set %ccodecnt1 $count($1-,) | set %ccodecnt2 $count($1-,) | set %ccodecnt3 $count($1-,) | set %ccodecnt4 $count($1-,) | .inc %ccodecnt %ccodecnt1 | .inc %ccodecnt %ccodecnt2 | .inc %ccodecnt %ccodecnt3 | .inc %ccodecnt %ccodecnt4 | if (%ccodecnt > 4) { ban -u8 $chan $nick 3 | notice $nick Excess Control Codes Detected (Total: %ccodecnt $+ ) (this ban will be lifted in a moment) %CSSLOGO } } }
  265. on @+1:TEXT:**:#: { if ($nick !isop $chan) { set %ccodecnt 0 | set %ccodecnt1 $count($1-,) | set %ccodecnt2 $count($1-,) | set %ccodecnt3 $count($1-,) | set %ccodecnt4 $count($1-,) | .inc %ccodecnt %ccodecnt1 | .inc %ccodecnt %ccodecnt2 | .inc %ccodecnt %ccodecnt3 | .inc %ccodecnt %ccodecnt4 | if (%ccodecnt > 4) { ban -u8 $chan $nick 3 | notice $nick Excess Control Codes Detected (Total: %ccodecnt $+ ) (this ban will be lifted in a moment) %CSSLOGO } } }
  266. on @+1:ACTION:*:#: { 
  267.   if ($nick !isop $chan) { 
  268.     set %x 1 | set %text $len($1-) | if (%text < 4 || %text isnum) { goto end } | :letters | if %x > %text { goto kicker } | if $asc($mid(%x,%text,$1-)) == $asc($upper($mid(%x,%text,$1-))) { inc %x | goto letters } | else { goto end } | :kicker | ban -u8 $chan $nick 3 | notice $nick CAPSLOCK detected, Please don't Talk in all UPPER CASE, it's considered rude (this ban will be lifted in a moment) %CSSLOGO | :end 
  269.     if (% [ $+ [ $nick [ $+ [ repeat ] ] ] ] == $1-) { ban -u8 $chan $nick 3 | notice $nick Please do not repeat yourself. (this ban will be lifted in a moment) } | else { set % [ $+ [ $nick [ $+ [ repeat ] ] ] ] $1- | if ($len($1-) >= 300) { ban -u8 $chan $nick 3 | kick $chan $nick Text Flood: $len($parms) characters } | .timer 1 10 unset % [ $+ [ $nick [ $+ [ repeat ] ] ] ] }
  270.   }
  271. }
  272. on @+1:TEXT:*:#: { 
  273.   if ($nick !isop $chan) { 
  274.     set %x 1 | set %text $len($1-) | if (%text < 4 || %text isnum) { goto end } | :letters | if %x > %text { goto kicker } | if $asc($mid(%x,%text,$1-)) == $asc($upper($mid(%x,%text,$1-))) { inc %x | goto letters } | else { goto end } | :kicker | ban -u8 $chan $nick 3 | notice $nick CAPSLOCK detected, Please don't Talk in all UPPER CASE, it's considered rude (this ban will be lifted in a moment) %CSSLOGO | :end 
  275.     if (% [ $+ [ $nick [ $+ [ repeat ] ] ] ] == $1-) { ban -u8 $chan $nick 3 | notice $nick Please do not repeat yourself. (this ban will be lifted in a moment) } | else { set % [ $+ [ $nick [ $+ [ repeat ] ] ] ] $1- | if ($len($1-) >= 300) { ban -u8 $chan $nick 3 | kick $chan $nick Text Flood: $len($parms) characters } | .timer 1 10 unset % [ $+ [ $nick [ $+ [ repeat ] ] ] ] } 
  276.   }
  277. }
  278. #textpro end
  279. #sounds on
  280. on 1:NOSOUND: if ($nick ison $active) { msg $active ! $+ $nick $filename } | else { msg $nick ! $+ $nick $filename }
  281. on 1:TEXT:%filesend:*:/dcc send $nick $mircdirsounds\ $+ $2
  282. #sounds end
  283.